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INTBODUCTION 



This document is a guide for installing and understanding 
the functions of the CMS EXEC language extensions. As the 
command name for the extensions module is *EXSEHV", the 
extensions will be refered to as such throughout this 
document,. Since EXSERV is an extension of the CMS EXEC 
processor, this manual assumes that the reader has a good 
working knowledge of CMS and the EXEC language. 

The EXSERV module is designed to run in the transient 
program area of a CMS virtual machine- Therefore, it can be 
invoked by any CMS user in an EXEC procedure or EDIT macro. 
The user's guide section of this manual contains detailed 
descriptions and examples of the EXSERV commands. This may 
be extracted and included with a CMS user's guide. 

Detailed instructions for the installation of the EXSERV 
module by a system programmer are included. It is assumed 
that the installer has a good understanding of CMS and the 
EXEC processors.. 

For details on the internal design of the command 
processors, refer to the EXSERV Systems Guide, Form. No. 
LY20-227a. 



SYSTEM OVERVIEW 



DESCRIPTION 



The CMS exec language extensions are designed to provide 
additional functions to, and expand the usefulness of the 
Virtural Machine/370 CMS exec language. It is a standard CMS 
command module which runs in the transient area and allows 
the EXEC writer to: 

1. Perform multiplication, division, and residue 
operations as well as addition and subtraction. 
("CALC" function) 

2. Obtain current date and time in EXEC variables. 
("DATETIME" function) ^_ 

3. Obtain real or virtual device type information. 
("DEVTYPE" function) 
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4,. Search a file in a specific column for a particular 
character string. ("FIND" function) 

5. Search a list of values for a particular value, 
("LOOKUP" function) 

6. Determine if a member is defined in a library and 
obtain the starting record number of the member in 
the library and the size of the member, ("BLDL" 
function) 

7. Obtain the values of specific parameters or options 
from the EXEC argument list and supply default 
values if no value was provided- ("GETOPT/GETPARM" 
function) 

8. Obtain the value of an option which follows a 
specific keyword and supply a default if the keyword 
does not occur in the option list. Also, several 
synonyms may be provided for the keyword if desired. 
("GETOPTVL" function) 

9. fieturn the values of local EXEC variables to the 
next higher level EXEC. ("BETUEN" function) 

10. Print, punch, stack, or type data which contains a 
specific number of embedded blanks and strings 
greater than 8 characters in length. 
("PRINT/PONCH/STACK/TYPE" function) 

11. Eead any record in a CMS file into EXEC variables. 
("EEAD" function) 

12. Place a CMS file in the console stack. ("STKFILE" 
function) 

13. Obtain data from the File System Table (FST) when 
only part of the file ID is known. 
("FILEDATA/STATE" function) 

14. Obtain virtual machine user ID, system level number, 
or virtural machine storage size/. ("SYSDATA" 
function) 

15. Set global EXEC variables which may be accessed from 
command to command. ("SYSGLBL" function) 

16. Test the option list for one of a mutually exclusive 
set of values and retutn the value found or a 
default value if none were found. Also, short forms 
of the option values may be specified if desired. 

("TSTOPT" function) 
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17. Add new records to a CMS file, rewrite any record in 
a CMS file, or overlay specific columns of .a record 
in a CMS file. ("WRITE/WETDPD" function) 

Items 5, 1, 8, and 16 greatly ease the task of obtaining and 
testing values of parameters and options passed in an EXEC 
argument list. 

Items 4, 6, 11, 12, and 17 provide I/O capability for the 
EXEC writer- 
Item 10 provides a way to print, punch, stack, or type data 
with variable substitution and/or character strings longer 
than eight characters. 



SYSTEM FLOWCHART 



EXSERV consists of: 

* a general entry routine to set up the work areas, check 
the validity of the parameter list, and branch to the 
correct processor 

* 17 operation processors to perform the functions 

* 11 subroutines that are common to several of the 
processors 

* a general exit routine that sets the return code and 
restores the original environment- 
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PROGBAMMING SYSTEMS 



EXSEEV is written in CMS Assembler and is designed to run 
under VM/370 - Release 3*0. For operation in a previous 
release, some of the functions may not be supported. Consult 
the Installation section of this document and the function 
in question. 

Minimum hardware configuration is the same as for VM/370,. 



-.4* 



INSTALLATION PROCEDURE 



The installation procedure for EXSERV is divided into fovir 
steps- Specifically: 

1) Load distribution tape onto a CMS minidisk. 

2) Assemble the EXSERV source,. 

3) Generate the EXSERV command laodule. 

4) Execute the basic installtion verification procedure. 

Each of these steps will be described in detail. 



DUMPING THE DISTRIBUTION TAPE 



The distribution tape was created using the CMS 'TAPE DUMP* 
command and must be restored with the CMS 'TAPE LOAD* 
command. Due to dependencies in the EXSERV generation execs, 
the minidisk must be accessed as an A-DISKi 

The tape is divided into two files. The first file contains 
the necessary material to generate EXSERV and the second 
file contains functional sample execs which use EXSERV. 
Additionally, a technique for an exec testing facility is 
provided. If the second file is not desired, omit the 
• (EOT)* specification on the 'TAPE LOAD' command. 

The CMS minidisk space requirements for the distribution 
material and generation procedure are as follows: 
Distribution material 340 blocks 

Generation procedure output 650 to 97 blocks 
Assembler workspace 1300 blocks 

On a 3330 drive, this is approximately 10 cylinders. 

The only output required for operation of EXSERV is the 
module file. This is the actual EXSERV command module and 
requires approximately 8 blocks on a formatted CMS minidisk. 
All other files may be erased. However, all maintenance 
changes will be provided in source form. 

With the distribution tape loaded and attached as device 
address 181, perform the following set of commands: 

TAPE REW Operator input 

R; System output 

TAPE LOAD * * A (EOT) Operator input 

LOADING ... System output 

EXSERV ASSEMBLE AO 
EXSRVASM EXEC AO 
EXSRVGEN EXEC AO 
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EXSRVVFP EXEC AO 
EXSPL100 UPDATE AO 
EXSPL2fl7 UPDATE AO 
END-OF-FILE OR END~OF«TAPE 



$EXENTE] 


i EXEC 


AO 


EXHT 


EXEC 


AO 


EXET 


EXEC 


AO 


EXTEST 


EXEC 


AO 


FILES 


EXEC 


AO 


HELP 


EXEC 


AO 



END-OF~FILE OE END-OF-TAPE 
END-OF-FILE OE END-OF-TAPE 

E; 
Tiiis concludes the dumping of the distribution material. 



ASSEMBLING THE EXSEEV SOURCE 



The exec "EXSEVASM* is used in the next step to assemble the 
source of EXSEEV. This exec has one parameter which 
indicates the release level of VM/370 in which EXSEEV will 
operate. This parameter may have the following values: 

100 - Indicates EXSEEV is to be assembled for use on 

a VM/370 system prior to Release 2 PLC 17. 
217 - Indicates EXSEEV is to be assembled for use on 

a VM/370 system between Eelease 2 PLC 17 but 

prior to Eelease 3 
blank - Indicates EXSEEV is to be assembled for use on 

Eelease 3 of VM/370. 

If other than a Eelease 3 VM/37 system is the host, a 
temporary source module (named $EXSEEV) will be created for 
the assembly step. The original source module is not 
modified. The changes being incorporated are one to two card 
changes which reflect a change in the starting displacement 
of the EXEC Interpreter common area. If problems arise after 
a release change, this is the most likely cause of the 
problem. Eefer to CMS module ' DMSEXT' for a mapping of this 
area. 

During the course of the source update and assembly, status 
messages will be issued. At the conclusion of this exec, 
print the 'EXSEEV LISTING' file for future reference. 
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GENERATING THE EXSEEV COMMAND MODULE 



Upon completion of the EXSEEV assembly, the exec •EXSEVGEN* 
must be run to generate the command module for EXSEEV. This 
exec has no parameters. The output of this exec will be the 
EXSEEV command module file and the load map* When this exec 
completes, EXSEEV is ready to use. If desired, the EXSEEV 
module file may be copied to the CMS system disk. Be sure 
to save a new CMS system or else the file will not be in the 
saved system's file directory for the S-DISK. 



VERIJyiNG THE INSTALLATION EESULTS 



After the installation process is complete, a basic 
verification procedure ('EXSEVVFP") may be executed to 
insure EXSEEV is working correctly. This exec will use four 
EXSEEV functions to insure that variables may be passed 
correctly between EXSEEV and the EXEC interpreter. The four 
functions used are: 

DATETIME 

DEVTYPE 

SYSDATA 

TYPE 

These functions were selected because they 40 not require 
user input or user files for operation. As the exec 
executes, messages will be issued which indicate the 
expected results. At no time should a nonzero return code or 
program check result. If the verification procedure fails, 
insure the correct release level was specified on the 
•EXSEVASM' exec command for the assembly of EXSEEV. 



USE OF SAMPLE EXECS 



The sample execs in the second file may be used for 
additional testing and contain examples of how EXSEEV can be 
used. Clearly, without EXSEEV these functions could not be 
performed in an exec without the use of external modules 
written in assembly language. 

Execs 'EXTEST", 'FILES', and 'HELP" utilize EXSEEV in their 
operation. Execs *EXHT' and 'EXET' are used internally by 
the 'FILES' exec and are part of an exec testing facility. 
The format, usage, and parameters required for any of these 
execs may be obtained by entering 'HELP exec-name •• 

The exec named 'SEXENTEE' is an edit macro and should not be 
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used from the console. Its used is explained in the help 
information of the 'EXTEST* exec. 

The 'HELP' exec is a generalized function which can be 
useful in an operational environment. HELP information is 
written at the end of an exec in the following format: 
(A full line of asterisks) 
FOfiMAT: 

Exec format information 
(Blank line) 
USAGE: 

Description of exec function and usage. 
(Blank line) 
PAKMS: 

Detailed description of parameter and option 
values. 

The operation of the HELP exec depends on this format. 
Analysis of the exec logic will reveal the reasons. 



RELEASE SESTEICTIONS 



SYSDATA Function: 

This function uses the VM/370 diagnose code zero to 
extract the user id and system level number. The 
diagnose code zero function was not implemented until 
release 2 PLC 19 of VM/370. If SYSDATA is used on a 
prior release, the return code will always be four. 

Also, if the virtural machine storage size is 
requested, the VM/370 diagnose code sixty function is 
used. This function was not available until release 3 
PLC 1 of VM/370. Therefore, if the machine storage size 
is requested on a system between release 2 PLC 19 and 
release 3 PLC 1 , the results will be unpredictable. 



EELEASE COMPATIBILITY CONSIDERATIONS 



EXSEfiV in general: 

EXSERV interfaces to the exec interpreter thru the 
interpreter work area defined in CMS module DMSEXT. The 
mapping of this area is available only within this 
module. A second independent mapping is also contained 
in the EXSERV source. When changing releases, it is 
important to determine if any updates have been applied 
to DMSEXT which affect the displacements of fields in 
the interpreter work area. If so, duplicate changes 
must be made in the EXSERV source. The interpreter work 
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area format is moderately stable and has changed twice 
during the lifetime of VM/370. These changes^ were 
required for new functions added to either VM/370 or 
the exec interpreter. 

SYSGLBL Function: 

This function uses one reserved word in the low storage 
area of the CMS nucleus. (Area »NUCRSV1» mapped by the 
dsect NUCON) This word is used to anchor the global 
variable chain and has remained unused thru the current 
release of VM/370. Future releases may utilize this 
area for new functions in which case a different 
reserved area must be selected. During the 
implementation of a new release, examine the NUCON 
macro for possible changes regarding this area. 
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EXSEEV USEE'S GUIDE 



This guide shows the proper syntax, function, examples, and 
possible uses of the EXSEEV operations. 



NOTATIONAL CONVENTIONS 



The notation defining the command syntax in this guide is 
described in the following paragraphs: 



1. Truncations and abbreviations of commands 

Where abbreviation of a command is permitted, uppercase 
letters represent the shortest possible version of the 
command. The example below shows the format 
specification for the EXEC command.. 

EXec 

This representation means that EX, EXE, and EXEC are 
all valid specifications for this command name. 

Options are specified in the same manner. If no 
minimum truncation is noted, you must enter the entire 
word. 

A second series of characters below the command name or 
option indicates that an abbreviation (a collection of 
characters which is not a simple truncation) is also 
valid. 

MESSAGE Full command name (MESSAGE) 
MSG Valid abbreviation (MSG) 

2. The following symbols define the command format and 
should never be typed when you enter the actual 
command. 

underscore _ 

braces { } 

brackets [ ] 
ellipsis 

3. You should type uppercase letters and words (Note: The 
Editor automatically converts lowercase letters into 
uppercase before the file is written) and the symbols 
listed below, as specified in the statement format. 
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asterisk * 

comma , 

percent sign % 

equal sign = 

parenthesis ( ) 

period 

colon : 

4. Lowercase letters, words, and symbols that appear in 
the command format represent variables for which you 
should substitute specific information. For example, 
"fn ft fm" indicates that you should type file 
identifiers such as "MYFILE EXEC A1",. 

Lowercase letters containing an imbedded hyphen (-) 
represent EXEC variables which should be entered less 
their leading ampersand (&) . For example, "var-vl" 
indicates that you should type identifiers such as 
"VAR", which represents the EXEC variable "&VAR". 

5. Choices are represented in the command format by 
stacking. 

A 
B 
C 

6. An underscore indicates an assumed default option. If 
you select an underscored choice, you need not type it 
when you enter the command. 

EXAMPLE 

The representation: 

A 

B 

C 

indicates you may select either A, B, or C. However, 
if you select B, you need not type it since it becomes 
the default choice. 

7. The use of braces denotes choices, one of which you 
must select,. 

EXAMPLE 

The representation: 

{ A } 

{ B } 

{ C } 

indicates you must specify either A, B, or C. If 
neither brackets nor braces enclose a list of choices, 
treat it as if enclosed by braces. 



-11- 



8. The use of brackets denotes choices, one of which you 
max select, 

EXAJPU 

The representation: 

[ A J 

[ B ] 

C c 3 

indicates that you may code A, B, or C, or you may omit 
the field. 

9. An ellipsis indicates that you may repeat the preceding 
item or group of items more than once in succession. 

The representation: 
(option ...) 

indicates that you may code more than one option within 
the parenthesis. 



COilMAND SYNTAX 



The argument list to the EXEC procedure using EXSERV is 
divided into the following fields: 

[EXEC] execname [parameters] [ ( options [ ) ] ] 

"parameters" are any tokens between the EXEC name and the 
first left parenthesis- "Options" are any tokens between the 
first left parenthesis and the end of the EXEC argument 
list- An optional ending right parenthesis is not part of 
the option list- 



PfiOCESSOE INTEEFACE 



The EXSEBV Processor is always invoked by a command in the 
following format: 

EXSEEV operation [parameters] [ ( options [ ) ]] 

Not all operations require parameters or option lists- 
Because EXSEEV runs in the transient area, it may be used in 
"EDIT" macros. 
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XNTEEFACE BETWEEN EXSESV AND CMS EXEC INTERPRETER 



1) Upon entry, EXSERV obtains the value of the CMS EXEC 
Interpreter's register 13 from the save area. This 
register points to the EXEC Interpreter's common area 
and allows EXSERV to access the local variables 
currently in use by the EXEC procedure.. Also, additional 
variables may be created and inserted into the EXEC 
procedure's variable list. 

2) If the global EXEC variables are used, one reserved word 
is used in the CMS nucleus ("NUCRSV1") - This function 
can be release sensitive. 

3) The CMS User's Guide (GC20~1819) states that a percent 
sign (%) may be used as a place holder. The use of the 
percent sign as a place holder only applies to commands 
which are processed by the EXEC interpreter- The CMS 
command processor does not place any special 
significance on the percent sign character and treats it 
like any other character. 

EXSERV uses the percent sign frequently as a place 
holder. However, the EXEC writer is advised that 
different EXEC control words treat the percent sign 
differently. At times it may be necessary to change an 
argument returned by EXSERV from a percent sign to a 
null (blank) before using it. 

4) EXSERV makes a very important distinction between 
variables and values that are passed to it. Any variable 
names that are passed to EXSERV must not be preceded by 
their ampersand {&) . This is because the EXEC 
Interpreter changes any name preceded by an ampersand 
into its corresponding value before executing the 
command. Therefore, when a command asks for a variable 
name, it must be typed without the ampersand {&) . If a 
value is needed, then it can be in the form of a literal 
or a variable name with the ampersand. 



RETURN CODES 



- ***** 

4 « ***** DEPENDS ON THE EXSERV FUNCTION 
Q - ***** 

12 - ***** 

100 - EXSESV not called from within an EXEC„ 

104 - Invalid EXSERV operation request. 

108 - Invalid EXSERV parameter list. 

200 - Invalid variable name. Name exceeds seven 
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characters plus an ampersand. 
300 ~ Invalid decimal value (contains non-decimal 

digits) . 
304 - Numeric value exceeds eight characters after 

conversion. 
308 - Invalid arithmetic operator. 
312 - Invalid range for numeric value. (eg, a value used 

for a card column is greater than 80) 
316 - Invalid hexadecimal value (contains non-hex 

digits) . 
4xx - Error from "FSSTATE". xx is STATE return code. 
5xx - Error from "ESBEAD". xx is READ return code. "EOF" 

(return code 12) is not considered an error and is 

returned as »12«. 
6xx - Error from "FStfRITE",- xx is the WRITE return code* 

NOTE: The error return codes for the three macros mentioned 
above can be found in the CMS Command and Macro Reference, 
form number GC20-1818. 
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EXSERV FUNCTIONS 



BLDL (Performs OS BLDL function) 



FUNCTION: 

This routine performs an OS "BLDL' operation on a macro 
or text library. It searches the library directory and 
returns the beginning location of the member in the 
library and the length of the member. These values 
might be used in a COPYFILE command to move the library 
member into a seperate file of its owni 

COMMAND FOEMAT: 

EXSERV BLDL mbrnm fn ft [fm][ ( str-var [ In-var [)]]] 

mbrnm - Member name for search. 

fn - Library file name. 

ft - Library file type (Normally MACLIB or 

TXTLIB),. 
fm - File mode- 
str-var * Variable name in which to place the 

starting location of the member in the 

library. 
In-var - Variable name in which to place the 

length of the member- 

RETURN CODES: 

— BLDL SUCCESSFUL,. 

4 — BLDL NOT SUCCESSFUL. 

8 — DIRECTORY UPDATE IN PROGRESS. 



SCONTROL OFF 

EXSERV BLDL &1 &2 MACLIB A (START LNGTH) 
&IF &RETCODE NE &EXIT &EETCODE 
COPYFILE &2 MACLIB A &1 MACRO A 

(FROM &STAET FOR &LNGTH) 
EDIT SI MACRO A 
MACLIB REP S2 &^ 
ERASE &1 MACRO A 
6EXIT &RETCODE 

exec editmac foo mymaclib 

EDIT: 



A simple EXEC (EDITMAC) which easily edits members of macro 
libraries. 
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EXSERV FUNCTIONS 



CA LC (Calculate function) 



FUNCTION: 

This function provides the EXEC writer with the 
capability to perform one of five mathematical 
operations. 

COMMAND FOBMAT: 

EXSEEV CALC ans~var = varl opr var2 

ans-var - Name of the variable result is to be 

placed in., 
varl * First operand. May be variable name or 

constant value, 
opr - Operation to be performed. + (addition) , 

- (subtraction) , * (multiplication) , 

/ (division) , or // (remainder from 

division) . 
var2 - Second operand. May be variable name or 

constant. 

HETUfiN CODES: 

— RESULT IS ZERO OR POSITIVE 
4 — RESULT IS NEGATIVE 

For division, it is necessary to invoke CALC twice if both 
the quotient and remainder are desired. 



r 


&CONTROL OFF 
EXSERV CALC ANSWER = 
STIPE IT IS 6ANSSER 
SEXIT SRETCODE 


SI S2 &3 




exec whatis 7*8 
IT IS 56 

fi; 

exec whatis 10 / ~2 

IT IS -5 
R (00004) ; 





A simple EXEC (»HATIS) using the CALC function. 
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EXSERV FUNCTIONS 



DAI ETIME (Date and time services) 



FUNCTION: 

This function allows the user to obtain the date and 
time in printable form in EXEC variables. 

COMMAND FORMAT: 

EXSERV { DATETIME } 
{ DT } 

RETURNED VARIABLES: 

The variable &DATE, in the format mm/dd/yy, and &TIME, 
in the format hh:mm:ss, will be available for use upon 
return from this command. 

RETURN CODES: 

NONE 



SCONTROL OFF 

EXSERV DATETIME 

filYPE TODAY IS SDATE 

&TyPE THE TIME IS NOW &TIME 

&EXIT fiRETCODE 

exec date 

TODAY IS 08/25/76 

THE TIME IS NOW 13:27:07 

R; 

A simple EXEC (DATE) using the DATETIME function- 
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EXSERV FUNCTIONS 



DEVTYPE (Device type information) 



FUNCTION: 

This routine is used to extract device type information 
about non^spooled virtual devices. Both virtual and 
real device type information is available if desired. 

COMMAND FOEMAT: 

EXSEfiV { DEVTYPE } rtn-v1 [rtn-'v2] [ ( devadr [) ]] 
{ DVT } 

rtn-vl - Beturn variable name for real device 

information. 
rtn-v2 * Return variable name for virtual device 

information, 
devadr - Virtual device address* If omitted^ the 

virtual console will be assumed. 

EETUEN CODES: 

— VALID DEVICE ADDRESS. INFORMATION RETURNED. 
4 — INVALID DEVICE ADDEESS- VARIABLES SET TO •%«. 

NOTES: 

SPOOLED DEVICE INFORMATION CANNOT BE EXTRACTED.. IF AN 
ATTEMPT IS MADE TO OBTAIN INFORMATION ABOUT SPOOLED 
DEVICES, EXSERV WILL EXIT WITH RETURN CODE OF 4. 

DEVICE CODES: 

The information returned consists of a four digit 
number which is the device class and type codes as 
defined in the VM/370: System Programmer's Guide 
(GC20-1807). The first two digits define the device 
class, which are as follows: 

80 - Terminal device 

40 - Graphics device 

20 - Unit record input device 

10 - Unit record output device 

08 * Magnetic tape device 

04 * Direct access storage device 

02 - Special device 

The last two digits define the device type, which 
depends on what class it is. The complete codes for 
some of the more common devices are: 

8040 • 2700 Binary synchronous line 

8018 - IBM 2741 Communication terminal 

4004 - IBM 3277 Display station 

1041 - IBM 1403 Printer 

0410 - IBM 3330 Disk storage facility 
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EXSEEV FUNCTIONS 



0408 - IBM 3350 Disk storage facility 



EXSEEV DEVTYPE CONTYPE 

6IF &CONTYPE NE 4004 SEXIT SBETCODE 

CP SET PF1 COPY 

CP SET PF2 IMMED QOEEY TIME 

SEXIT 6EETC0DE 

Using DEVTYPE in a PEOFILE EXEC to set the program function 
keys on a 3270- 
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EXSERV FUNCTIONS 



El^U (Search file for character string) 



FUNCTION: 

This routine can be used to search a CMS file for a 
character string starting in a particular column. 

COMMAND FOBMAT: 

EXSEEV FIND fn ft [ fin C red ]]( [cc] str rcd-var [) ] 

fn - Name of file to be searched, 
ft - Type of file to be searched. 
fm - Mode of file tc be searched, 
red - Starting record number for search. The 

default record is one. 
cc - Column in which to search for string. 

Defaults to one if not provided, 
str - Character string to be searched for. 

May be 1 to 8 characters, 
rcd-var ~ variable name which is to contain the 

record number of the record in which the 

search string was found- 

RETURN CODES: 

— ITEM FOUND. VARIABLE SET TO RECORD NUMBER. 
4 — ITEM NOT FOUND. VARIABLE NOT SET. 



I ... 

I ... 

I EXSERV FIND SI &2 A 1 ( 1 // RECORD) 

I &IF 6RETC0DE EQ &SKIP 2 

I 8TYPE JCL CARD NOT FOUND 

I 6EXIT SRETCODE 

i 

I ... 

Part of an EXEC which searches a file for OS JCL records. 
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GETQPTVL (Get option value) 



FONCTION: 

The GETOPTVL Processor is used to extract option values 
which are preceeded by a specific keyword. This 
function is useful when positional values are not 
desirable. Also, several synonyms may be provided for 
the keyword* For EXEC procedures which depend on 
several options, this can eliminate most of the 
searching for the values and their positional 
dependency. 

COMMAND FORMAT: 



EXSEEV { GETOPTVL } [ ndx ] rtn-var [syn-nm 
{ GOV } 



,. ][ (dftval [) ]] 



ndx 



rtn-var * 



syn-nm - 



dftval - 



Index number o 
Defaults to on 
keyword) 
Keyword name a 
which the valu 
to be set- 
Alternate keyw 
keyword is use 
still used to 
the synonym na 
Default value 
or any synonym 
option list, 
•rtn-var* will 



f value to be obtained, 
e. (First value after 

nd name of variable in 

e following the keyword is 

ord name. If a synonym 
d, the 'rtn-var' name is 
return the value following 
me. 

to be used if the keyword 
s is not found in the 
If not provided, the 
be set to •%•. 



RETUEN CODES: 



— SUCCESSFUL COMPLETION,. KEYWORD SET TO VALUE. 

4 — NO VALUE PROVIDED AFTER KEYWORD. KEYWORD OR 

SYNONYM OCCURRED AS LAST VALUE IN THE OPTION LIST 
OR INDEX POINTS PAST END OF EXEC OPTION LIST. 



EXAMPLE: 



The following section of an EXEC procedure could be 
used to get a variable number of disk filemodes 
following the keyword "DISK* or 'DISKS'. If the 
procedure was called 'FOO', it could be invoked as 
follows: 



EXEC FOO 



( .,.,. DISK [fm [fffi .,..]]. .-• [) ] 
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*" -.-— . — — — — — - — - . --- -.^ 

&N = 1 

-LOOP 

EXSEfiV GETOPTVL SN DISK DISKS (%) 

&1F 5EETC0DE EQ 4 SGOTO -END 

&IF &DISK EQ % &GOTO -END 

* (statements that would verify that &DISK is valid,) 

* (for example^ use EXSESV LOOKUP,) 
SDISK6N = &DISK 
SN = 6N + 1 
SGOTO -LOOP 
-END 
&1F &N EQ 1 SGOTO -OUT 



L ^ , -.J 
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GETPARM/GETOPT (Get parameter or option) 



FUNCTION: 

The GETPABM/GETOPT Proce 
extract values from e 
•options* which were i 
Everything up to the fir 
the EXEC name) is consid 
after the first left p 
option. If a paramete 
explicitly provided in 
default value may be 
parameter or option value 
its index number in the p 

COMMAND FORMAT: 



ssor allows the 
ither the • pa 
nput to the EX 
st left parent he 
ered a paramete 
arenthesis is 
r or option 
the EXEC'S arg 
provided. Also 
may be obtaine 
arameter or opti 



EXEC coder to 
rameters" or 
EC procedure, 
sis (excluding 
r. Everything 
considered an 
value is not 
ument list, a 
f a specific 
d by providing 
on list. 



[ ( dftval 



[)]] 



EXSERV { GETPARM } £ ndx ] rtn-var - 
{ GP } 
{ GETOPT } 
{ GO } 

ndx - Index number of parameter or option 

value to be obtained. If not provided, 
the default is one greater than the 
index value used for the previous 
'rtn^var* specified- If no such 
previous index value exists, it defaults 
to 1. 

rtn-var - Name of the EXEC variable in which the 
parameter or option value is to be set. 
If the parameter or option was not 
included in the EXEC parameter list, the 
default value (dft-val) associated 
(positionally) with this variable will 
be used- If no default value was 
provided, the variable will be set to 

dftval * Default value to be used if parameter or 
option value was not provided. Default 
values are associated on a one-to-one 
basis with return variables. 



RETURNED VARIABLES: 

The variable »&PNUM« or "SONUM* is returned to the 
calling EXEC. if GETPARM is specified, SPNUM is 
returned, and for GETOPT, &ONUM is returned. 
'&PNUM' provides the true number of parameters that are 
provided in the EXEC«s argument list and 'SONUM', the 
true number of option values in the argument list. 
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EXAMPLE: 



Assume an EXEC has been invoked with the following 
coffloiand line: 

EXEC ANYNAME ABC DEE (GHI JKL) 

And the following EXSERV command has been executed from 
within the EXEC: 

EXSERV GETPARM FN FT FM (% SCRIPT Al} 

Then upon return from EXSERV, the variables *SFN', 
•£FT', and 'SFil" would be set to «ABC', 'DEF', and 
'Al', 'ABC and 'DEF' from the EXEC argument list, and 
»A1' supplied by the default value. SPNOM would be set 
to 2. This supplies more information than &INDEX which 
would be set to 6* (Parenthesis are counted by SINDEX) . 
The following EXSERV command would have the same 
results: 

EXSERV GETPARM 2 FT 1 FN 3 FM (SCRIPT % Al) 
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IiOOKUP (Search a list) 



FUNCTION: 

The function of this routine is to look for a value in 
a list of values and indicate if the value occurs in 
the listi This can be very useful in checking the 
validity of a variable. 

COMMAND FOEMAT: 

EXSEfiV { LOOKUP } tstval ( tblvl ... [) ] 
{ LU } 

tstval - Value to be searched for i|i a list of 

values, 
tblvl ^ One or more values which comprise the 

list to be searched* 

JRETUfiN CODES: 

— VALUE LOCATED IN LIST. 

4 — VALUE NOT LOCATED IN LIST,. 



STYPE WHICH DISK MODE ? 

SBEAD SVAfiS ^MODE 

EXSEEV LOOKUP SMODE (ABCDEFGSYZ) 

SIF &EETCODE EQ SSKIP 2 

&TYPE INVALID MODE - SMODE 

6EXIT 4 



Fragment of an EXEC procedure showing typical use of LOOKUP 
function. 
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P£INT/^ONCH/STACK/pPE (Handles untokenized output) 



FONCTION: 



This routine 
data which 
characters in 
characters or 
an underscore 
into the data 
typed,. 



is used to print, punch, stack, or type 

contains strings greater than eight 

length. The input tokens must be eight 

less with blank characters indicated by 

character- Variables may be substituted 

to be printed, punched, stacked, or 



If the print or punch function is used, a 'CP CLOSE^ 
must be issued by the exec when all data has been 
printed or punched. 

COMMAND FOEMAT: 



( [cc] data -..[| ] 



EXSEHV { PEINT [ Ctl ] 
{ PET [ctl] 
{ PUNCH 
{ PCH 

{ STACK [order] 
{ STK [order] 
{ TYPE 



ctl • ASCII carriage control character, 
order - Is either of the following. If neither 
is specified, FIFO is the default. 

1) FIFO - Eequests this line to be 

stacked at the end of the 
console stack. 

2) LIFO - Eequests the line to be 

placed at the beginning of 
the console stack, 
cc • Card column in whi ch data is to be 

printer, punched, stacked, or typed, 
data • Data to be output- (Underscore 

characters are translated to blanks 

prior to output) 

NOTE- Data starting with a numeric 

character is always considered to be a 

card column number. 



EETUEN CODES: 
NONE. 

EXAMPLE: 



The data to be printed, punched, stacked, or typed 
should not start with a numeric value because it would 
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then be interpreted as a column number- Also, since CMS 
tokenizes all parenthesis, the token •(25,6)' would be 
received as • ( 25,6 ) ■ , or as 3 tokens,. The •25,6« 
would then be treated as a column number and an error 
would result. These problems can be overcome either by 
preceding numeric data with an underscore or inserting 
numeric data into a variable. 
For instance: 

&NUMBER = 24,2 

EXSERV PUNCH (// 16 SPACE= (CYL, < NUMBER ))) 

would result in the following card: 

col 1 col 16 

I i 

// SPACE=(CYL, (24,2)) 

All blanks between the data must be inserted explicitly 
since EXSERV concatenates all the data unless column 
numbers are specified. For instance, assume the 
variable •&UID" contains the value •DOSMAINT*. Then the 
following command: 

EXSERV PUNCH (//_JOB_ TEST_ 36 ***_JQB _FOR_ UID _***) 

would produce the following card: 

col 1 col 36 

1 i 

// JOB TEST *** JOB FOR DOSMAINT *** 

Variable names must not have underscores before or 
after them or they will not be substituted. 
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READ (Eead CMS files) 



FUNCTION: 

This routine is used to read CMS files from within EXEC 
procedures. The data is returned in EXEC variables. 
Specific columns may be read if desired and blanks are 
not considered as part of the data. Character strings 
longer than eight characters are returned in successive 
variables. 

COMMAND FOEMAT: 

EXSEEV { BEAD } fn ft [fm [red [trcval]]] [ ([$COL] [cc] rtn-var [) ] 

{ RB } 



fn 

ft 

fm 

red 

trcval 



$COL 



rtn-var - 



File name to b 
File type to b 
File mode to b 
Record number 
Last position 
data- The def 
if not specifi 
Requests the c 
returned along 
preceded by •& 
variable name 
column number, 
specified once 
option listi- 
Variable name 
returned. 



€ used for read. 

e used for read. 

e used for read. 

to read. Defaults to one. 

in record to scan for 

ault is the record length 

ed. 

olumn number to be 

with the data. A variable 
$■ followed by the data 
(rtn-var) will contain the 
This option is only 

at the beginning of the 

in which data is 



RETURN CODES: 



— READ SUCCESSFUL. 
12 — END OF FILE. 

5xx — I/O ERROR DURING READ, "xx* 
CODE FROM 'FSREAD' MACRO. 



INDICATES RETURN 



EXAMPLE: 



To read the fourth data item in the Nth record of 
•MYFILE DATA* y the following statement could be used: 

EXSERV READ MYFILE DATA % SN ($COL % % % NUMBER) 

After completion, the variable 'SSNUMBER* would contain 
the starting column number of the data item, and 
&NUMBER would contain the data. Keep in mind that this 
processor •toJcenizes^ the input record. That is, it 
breaks up any character strings longer than 8 
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characters into two or more strings. Therefore, in the 
above example, if the record contained a continuous 
string, then "SNOMBER" would contain the substring from 
columns 25 to 32- 
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BETUfiN (Pass a value back) 



FUNCTION: 



This routine is used to pass one or more local variable 

values to the next higher level EXEC- The next higher 

level EXEC 

using the 

provides 

facility. 



can access the value of the variables by 
variable name within a command line. This 
EXEC procedures with a subroutine-like 



COMMAND FORMAT: 



EXSEfiV { RETURN } var ... 
{ RTN } 

var - Name of variable to be passed to the 
next higher level EXEC. 



RETURN CODES; 



— VARIABLES SUCCESSFULLY PASSED TO NEXT HIGHER 

LEVEL,. 
4 — NO HIGHER LEVEL EXEC TO PASS TO-* 



SX = SX + 1 

eiF &X LT 100 SGOTO -LOOP 

EXSERV RETURN X Y 

6EXIT SRETCODE 

L -. « — ^ • J 



Section of an EXEC procedure 
and returns two values,. 



which does some calculations 
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STATE/FILEDATA (Get file characteristics) 

FUNCTION: 

The state processor can be used to determine if a file 
exists. Also, if a file does exist, the explicit file 
name, file type, and file mode can be obtained. 

The original function of the "STATE" operation is 
obsolete since the addition of the NOMSG option of the 
SCONTROL exec verb. However, the function remains since 
it is an integral part of the FILEDATA routine. 

COMMAND FORMAT: 

EXSERV { STATE } fn [ft [fm]] [( rtn-fn [rtn-ft [rtn-fm]} [)]] 
{ FILEDATA } fn [ft [fm]J [( rtn-fn [rtn-ft [rtn-fm [rtn-ff 
{ FD } [rtn-lrl [rtn-ic [rtn-bc [rtn-dt 

[rtn-tm]]]]]]]] [) ]] 

fn - File name for the search- May be 

specified as •*•. 
ft - File type for the search. If omitted, 

defaults to •*',. 
fm - File mode for tht search. If omitted, 

defaults to •*•. 

If the state operation is successful (return code 
0) , the following option values represent variable 
names in which the associated file information 
will be returned: 

rtn-fn - Actual file name, 

rtn-ft - Actual file type, 

rtn-fm - Actual file mode, 

rtn-ff - Actual file format ('F* or 'V"). 

rtn-lrl - Actual logical record length, 

rtn-ic - Number of logical records in file, 

rtn-bc - Number of physical 800-byte blocks, 

rtn-dt - Date file created (ma/dd/yy) . 

rtn-tm - Time file created (hh:mm). 

NOTE- If STATE/FILEDATA operation is unsuccessful, 
any return variables are set to ■%•. 

RETURN CODES: 

— FILE DOES EXIST. INFORMATION RETURNED. 

28 — FILE DOES NOT EXIST. 

4xx — "xx* IS ANY RETURN CODE POSSIBLE FROM THE 

•FSSTATE* MACRO.. Return code 28 is not 

considered an error condition. 
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EXAMPLE 



A percent sign (%) may be used as a return variable 
name if a particular data item is not desired. For 
instance: 

EXSERV FILEDATA NAME TYPE * {% % FM) 

will extract the file mode of the file named 'NAME 
TYPE". 
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STKFILE (Put a CMS file on console stack) 

FUNCTION: 

This routine is used to place all or part of a CMS file 
onto the console stack. 

COMMAND FOBMAT: 

EXSEBV { STKFILE } fn ft [fm [strtrcd]3[ {([[FOE] nbrrcds ][ ) ]} ] 

{([TO rcdnbrlC) ] } ] 
{ SF i 

fn - Name of file to be stacked, 
ft • Type of file to be stacked, 
fm - Mode of file to be stacked- Defaults to 

strtrcd - Starting record number in file. Defaults 

to one. 
nbrrcds - Number of records to be stacked, 
rcdnbr - Last record number to be stacked. 

NOTE - If neither • nbrrcds • or •rcdnbr' is 
specified, all records from the starting record 
number to the end of the file will be stacked. 

EXAMPLE: 

Suppose there existed a file called 'CHANGES EDIT' 
which contained several edit statements.. If only a 
subset of these changes was desired, then the variables 
'SSTAET' and 'SSTOP' would have to be initialized to 
the correct records. Then by executing the two 
following commands, any file can be easily edited: 

EXSERV STKFILE CHANGES EDIT % &STAET (TO 8ST0P) 
EDIT MYFILE SCEIPT 
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SYSDATA (Obtain user or system information!) 



FUNCTION: 

The function of this routine is to return system ID 
variables to the user. The following information can be 
obtained: 

1) USEE ID 

2) SYSTEM, MODIFICATION, AND PLC LEVEL NUMBERS. 

3) VIRTUEAL MACHINE STOEAGE SIZE, 

Eefer to the section "Release Restrictions* in this 
document before using this function. 

COMMAND FORMAT: 

EXSERV { SYSDATA } [ ( rtn-uid [rtn-slv [rtn-stg]] [) ]] 
{ SD } 

rtn-uid - Variable name in which user ID is to be 

returned, 
rtn-slv - Variable name in which current system 
level is to be returned. Value format 
is •vv»mm.ll» where: 

vv - System version level. 
mm - System modification level. 
11 - Program change level, 
rtn-stg • Variable name in which virtural machine 
storage size is to be returned. Value is 
in 'K', 

RETURN CODES: 

— SYSTEM DATA RETURNED. 

4 — CURRENT VM/370 SYSTEM DOES NOT SUPPORT THE 

•EXTRACT SYSTEM DATA' (DIAG CODE 0) FUNCTION,. 



^CONTROL OFF 

EXSERV SYSDATA (% SYSTEM) 

&IF SRETCODE NE &EXIT 8EETC0DE 

&TYPE THE SYSTEM IS VM/370 RELEASE &SYSTEM 

&EXIT 6RETC0DE 

exec whatsys 

THE SYSTEM IS VM/370 RELEASE 03.01.00 

Sample EXEC (WHATSYS) which identifies the system. 
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SYSGLgL (Global variable processor) 

FUNCTION: 

This routine is used to move global variable values to 
local variable values, set, or, test global variable 
values- 

COMMAND FORMAT: 

SET OPERATION: 

EXSERV SYSGLBL gbl-var ( value [)] 
MOVE SYSTEM VARIABLE VALUE TO LOCAL VARIABLE VALUE: 

EXSERV SYSGLBL gbl-var ..• 
TEST SYSTEM VARIABLE VALUE: 

EXSERV SYSGLBL gbl-var ( opr value [)] 
RELEASE OPERATION: 

EXSERV SYSGLBL ( RELEASE [)] 

gbl-var • Name of global variable. 

opr - Compare operation (LT|LE (EQIGEJGT |NE) 

- Value to be used for compare or value 
used for set operation. 

COMMENTS: 

This function uses the area 'NUCRSV1' in the CMS 
nucleus. 

RETURN CODES: 
SET OPERATION: 

ALWAYS ZERO- 
MOVE GLOBAL VARIABLE VALUE TO LOCAL VARIABLE VALUE: 

— ALL LOCAL VARIABLES HAVE BEEN SET. 

4 — ONE OR MORE GLOBAL VARIABLES HAVE NOT BEEN 
DEFINED. LOCAL VARIABLE SET TO •%«. 

TEST GLOBAL VARIABLE VALUE: 

— TEST CONDITION IS TRUE. 
4 — TEST CONDITION IS FALSE. 

NOTE- A test for an undefined variable is always 
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false unless it is being tested for a null (%) 
value, 

RELEASE OPERATION: 

ALWAYS ZERO. 

NOTES: 

The System Global processor is very useful in maintaining a 
list of variables to be kept from one EXEC procedure to 
another- Thus, the variables can be, in effect, global to 
the user's terminal session. 

To use a global variable, it must be defined by using the 
set operation. Thereafter, the variable exists as long as 
the user remains in CMS. Since the system global variable 
list is separate from the local variable list, there can be 
no name conflicts between locals and globals. By using the 
move operation, global and local variables of the same name 
will then have the same value. This does not mean, however, 
that changing this local variable will affect the global 
one. Globals can only be changed by the set operation. If 
the user wishes only to test the value of a system global 
variable, then the test operation is used and no local 
variable is created. When there is no further need for the 
system global variables, then the release operation releases 
the storage for all the variables. To release specific 
global variables, set the variable to a null value (%) . 
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TSTOPT (Test option list) 



FUNCTION: 

This routine is used to 
argument list for one o 
values* If none are f 
supplied. Additionally 
values may be specified 
is found in the argument 
a local EXEC variable, 
long form of the option 

COMMAND FOEMAT: 



test the options of the EXEC 
f a mutually exclusive set of 
ound, a default value may be 
, short forms of the option 
if desired. If an option value 
list, the value is returned in 
If a short form is found, the 
value is returned . 



EXSEEV £ TSTOPT } rtn-var [ ( value [minval] ... [) ]] 
£ TO } 

rtn-var -* Name of variable in which to return 
option value or default value. 

value ^ Value for the EXEC option list search. 
Only one such value may occur in the 
option field of the EXEC argument list,. 
The first value provided is considered 
the default value. If no default value 
is desired, a '%" may be specified. 

minval - Number which indicates the minimum 

length needed to be considered an option 
value match. Default is the value 
length, eg,.. If 'PRINT 2« were 
specified, then 'PR', •PRI», "PEIN", and 
•PRINT" would be considered as a match. 
•PRT' would not be considered a match. 
Caution should be used in specifying too 
short a truncation that causes the set 
to be non-exclusive. For example, 
•PRINT 1 PUNCH 1». 



RETURN CODES; 



— TEST SUCCESSFUL. OPTION VALUE OR DEFAULT VALUE 

RETURNED,. 
4 — MORE THAN ONE OPTION VALUE FOUND IN LIST. DEFAULT 

VALUE RETURNED. 
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EXAMPLE; 



Suppose an EXEC procedure called 'FOO* contained the 
following statement: 

EXSERV TSTOPT WHERE (PRINTEB 2 DISK PUNCH 3 TERMINAL 4) 

and the variable '^RHERE* is used to control where the 
output is to be directed. Then when 'FOO" is invoked as 
follows, the option list can easily be checked and 
verified.. 

exec foo .... ( .... pun ... ) 

After the execution of the above EXSERV command, SWHERE 
would contain the value 'PUNCH'.. 
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WRITE (Create or update a CMS file) 



FUNCTION: 

The write processor is used to create a new file, write 
over any record in an existing file, or add a new 
record to the end of a CMS file. The write update is 
used to overlay specific columns of an existing record 
without disturbing the data in other columns of the 
record. 

COMMAND FORMAT: 



EXSERV { WRITE } 
{ WRT } 
{ WRTUPD } 
{ WRU } 



fn ft [fm [red [ff [lrecl]3]][ 



([$COL][cc] 
var ...[) ]] 



fn 
ft 
fm 

red 



ff 



Irecl 



$COL 



cc 



var 



- File name to be used for write 
operation - 

- File type to be used for write 
operation. 

- File mode to be used for write 
operation- Can be omitted if writing to 
existing file. 

- Record number to write in file. 
Defaults to zero (add new record to 
file) . If writing an existing record, 
the entire record will be written unless 
•WRTUPD' is specified. 

- File format of file to write. Default 
value is "F» (fixed), or whatever the 
existing file format is. Only 'F* or 
•V may be specified. 

- Length of record to write. Defaults to 
80 or whatever the existing record 
length is. 

^ Used in conjunction with the 'SCOL' 
option of the READ operation. Indicates 
that the column numbers the data is to 
be written in is contained in a variable 
preceded by •&$• and followed by the 
data's variable name. 

- Column in which to write data. A 
numeric value in the list is always 
considered a column number. Numeric 
data must be contained in a variable. 

- Variable name containing the data to be 
written. 
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fiETOEN CODES; 



6xx — 'xx' IS ALL POSSIBLE HETURN CODES FROM THE 
•FS WRITE* MACRO^ 



EXAMPLE: 

If the •$COL« option is used in conjunction with column 
numbers^ then the precedence is as follows: 

The processor first searches for an associated 
column variable (preceded by *&$*)<, If none is 
found, then the data is positioned at either the 
column specified or one column to the right of the 
last data item written. If this is the first data 
item and no column number was specified, the output 
is placed in column one. 

Suppose the following statement was executed: 

EXSERV WRITE MYFILE DATA A ($COL A B 25 C 37 D E ) 

And the variables had the following values: 

&k = AAAAA S$A = 10 

&B = BBB &$B " no value 

&C = CCCCCCCC &$C - no value 

&D = DD &$D = 20 

&E - no value 

The following record would be written: 

col 10 16 20 25 

i tit 

AAAAA BBB DD E CCCCCCCC 

Variable Length Format Files: 

When adding new records to an existing variable length 
file, the maximum length record which may be written is 
equal to the length of the longest record in the file 
unless an explicit length is provided in the EXSERV 
command. If a record exceeds the maximum length, the 
record is truncated and no error is indicated. 

When rewriting a variable length record, the existing 
record length cannot be changed. If the new record is 
longer then the existing record, the record will be 
truncated and no error will be indicated. If the new 
record is shorter, it is padded with blanks (WRITE 
operation) or with whatever data previously existed in 
the record (WRTUPD operation) . 



-40- 



EXSERV FUNCTIONS 



-41- 



SH 20- 1922-0 



International Business Machines Corporation 

Data Processing Division 

1133 Westchester Avenue, White Plains, NY. 10604 

IBM World Trade Americas/Far East Corporation 

Town of Mount Pleasant, Route 9, North Tarrytown, N.Y., U.S.A 10591 

IBM World Trade Europe/Middle East/Africa Corporation 
360 Hamilton Avenue, White Plains, NY., U.S.A. 10601 



m 


< 


X 




CD 
V) 


c 


6 

3 


S 


(/> 


9i 









3; 




5" 


,8 


<0 




CO 


fi> 


vj 


3 





D 

(D 





3 


O 


< 


^_ 


CD 


"O 


</> 


r+ 


0> 


o' 


r+ 


3 


o' 




3 


d 


91 


XJ 




CD 


2 


E3 





I-+ 


3 






o 


r+' 


D 





tii 


-1 


Q> 




3 


r+ 


C 


CD 


9L 


3 




^-^ 


TJ 


< 


^ 


S 


3' 




Q. 





_. 


CO 


3 




_c 


m 


C/) 


m 


> 







r- 


O) 


3 


I 


CD 


10 


C 







II \ 


CD 


(O 




ro 




10 





E— «J 

« TO 

a> 0) 

c «« 

4= o 

1- +-• 

."= to 

<0 *-• 

e -o 

I i 

CO -c 

^ O 

E B 

jQ C 

O a> 

a Q, 

^ «'> 

S £ 

c Q- 

(O (1> 

O M 

«/» ^ 

0) a> 

7? "> 

« _« 

CO a. 



Virtual Machine/370 Conversational Monitor System (VM/CMS) EXEC Language Extensions 
Program Description/Operations Manual 

SH20- 1922-0 

You may use this form to communicate your comments about this pubUcation, its organization, or 
subject matter, with the understanding that IBM may use or distribute whatever information you 
supply in any way it beUeves appropriate without incurring any obligation to you. 

Your comments will be sent to the author's department for whatever review and action, if any, is 
deemed appropriate. Comments may be written in your own language; use of English is not required. 

Note: Copies of IBM publications are not stocked at the location to which this form is addressed. 
Please direct any requests for copies of publications, or for assistance in using your IBM system, to 
your IBM representative or to the IBM branch office serving your locality. 
Possible topics for comment are : 



READER'S 
COMMENT 
FORM 



Clarity Accuracy Completeness Organization Coding Retrieval 
If you wish a reply, give your name, company, mailing address, and date: 



Legibility 



O 



What is your occupation?. 



Number of latest Newsletter associated with this publication: 



Thank you for your cooperation. No postage stamp necessary if mailed in the U.S.A. (Elsewhere, an IBM 
office or representative will be happy to forward your comments or you may mail directly to the address 
in the Edition Notice on the back of the title page.) 



SH20-1922O 



Reader's Comment Form 
Your comments, please ... 

This manual is part of a library that serves as a reference source for systems analysts, 
programmers, and operators of IBM systems. Your comments on the other side of this 
form will be carefully reviewed by the persons responsible for writing and publishing 
this material. All comments and suggestions become the property of IBM. 



Fold and tape 



Please Do Not Staple 



Fold and tape 



NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 



BUSINESS REPLY MAIL 

FIRST CLASS PERMIT NO. 40 ARMONK, N.Y. 



International Business Machines Corporation 

Department 68Y 

P.O. Box 2750 

225 John W. Carpenter Freeway, East 

Irving, Texas 75062 



m 


<- 


X 

CD 

3 

Ui 


3 

c 


O 


s 








o 




3- 


■D 


3 


O 


CD 


CO 


00 


0> 


•^1 


d 


o 


D 


o 
o 


</> 


-J 


o 


< 


2[, 

■d" 


CD 


r+ 


0) 


O 


r+ 


-J 


O 




-J 


o 


0) 


■n 




03 


o 


r+ 


3 


O 


r+ 


-i 


O 


(/> 


-\ 




CO 

< 


T 


r+ 


r 


CD 


9L 


d 




•«-«•> 


■a 


< 


^_ 


< 


3 




r+ 
CD 

a 


o 


_. 


CO 


3 




c 

CO 


m 
X 

m 


> 


o 




r- 


CO 


Q) 

1 


I 


(Q 


N> 


C 


O 


(Q 


mmA 


CD 


CO 




lO 




Ni 




O 





Fold and tape 



Please Do Not Staple 



Fold and tape 



International Business Machines Corporation 

Data Processing Division 

1133 Westchester Avenue, White Plains, N.Y. 10604 

IBM World Trade Annericas/Far East Corporation 

Town of Mount Pleasant, Route 9, North Tarrytown, N.Y., U.S.A. 10591 

IBM World Trade Europe/Middle East/Africa Corporation 
360 Hamilton Avenue, White Plains, NY., U.S.A. 10601 



